home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / qbprog.EXE / WORLDMAP.BAS < prev    next >
BASIC Source File  |  1995-01-02  |  5KB  |  96 lines
  1. 400 CLS:COLOR 9,3
  2. 405 KEY OFF
  3. 516 D=160:E=2:U=2:FF=201
  4. 610 CLS
  5. 611 PRINT:PRINT:PRINT"   1  DUZ HARITA "
  6. 612 PRINT:PRINT"   2  LAMBERT "
  7. 613 PRINT:PRINT"   3 BEHRMAN "
  8. 614 PRINT:PRINT"   4 MERCATOR "
  9. 615 PRINT:PRINT"   5 MER.PROJEKSIYON "
  10. 620 PRINT:PRINT:PRINT:INPUT"SECIMINIZ   ";M
  11. 630 CLS
  12. 730 SCREEN 9
  13. 800 FOR J=1 TO 22:READ N,L,B
  14. 810 GOSUB 3000:X1=X:Y1=Y
  15. 811 LINE (0,0)-(320,FF ),1,B
  16. 820 FOR I=1 TO  N:READ L,B:GOSUB 3000:X2=X:Y2=Y
  17. 830 LINE (D+E*X1,100-Y1)-(D+E*X2,100-Y2),1
  18. 840 X1=X2:Y1=Y2:NEXT
  19. 845 READ N:FOR NN=1 TO N
  20. 850 READ L,B:GOSUB 3000
  21. 852 PAINT (D+E*X,100-Y),1
  22. 855 NEXT:NEXT
  23. 1000 B=90:GOSUB 3000:IF Y>99 THEN Y=99
  24. 1010 FOR X=0 TO 319 STEP 319/32
  25. 1020 LINE (X,100+Y)-(X,100-Y),U:NEXT
  26. 1100 FOR BB=-90 TO 90 STEP 22.5
  27. 1110 B=BB:GOSUB 3000
  28. 1111 LINE (0,0)-(320,FF ),1,B
  29. 1120 LINE (0,100-Y)-(319,100-Y),U:NEXT
  30. 1140 B=-90:GOSUB 3000:LINE (0,100-Y)-(319,100-Y),0
  31. 1150 B=90:GOSUB 3000:LINE (0,100-Y)-(319,100-Y),1:PAINT (0,199),0
  32. 1160 B=-90:GOSUB 3000:LINE (0,100-Y)-(319,100-Y),1:GOTO 2996
  33. 2996 LOCATE 23,74:PRINT"SPACE"
  34. 2997 A$=INKEY$
  35. 2998 IF A$<>" " THEN 2997
  36. 2999 RUN
  37. 3000 X=80*L/180
  38. 3010 ON M GOSUB 3100,3200,3300,3400,3500
  39. 3020 RETURN
  40. 3100 Y=.85*160*B/180:FF=169:RETURN
  41. 3200 Y=.85*160/(22/7)*SIN(B*(22/7)/180):FF=169:RETURN
  42. 3300 Y=99*SIN(B*(22/7)/180):FF=200:RETURN
  43. 3400 IF B=-90 OR B=90 THEN Y=99*SGN(B):FF=200:RETURN
  44. 3410 Y=.85*160/(22/7)*LOG(TAN((B/2+45)*(22/7)/180))
  45. 3415 IF ABS(Y)>99 THEN Y=99*SGN(Y)
  46. 3420 RETURN
  47. 3500 IF B=-90 OR B=90 THEN Y=99*SGN(B):FF=200:RETURN
  48. 3510 Y=.85*160/(22/7)*TAN(B*(22/7)/180)
  49. 3515 IF ABS(Y)>99 THEN Y=99*SGN(Y)
  50. 3520 RETURN
  51. 4000 DATA 31
  52. 4001 DATA -70,12,-61,10,-56,6,-52,5,-50,0,-40,-4,-36,-6
  53. 4002 DATA -35,-9,-39,-15,-41,-22,-48,-26,-49,-28
  54. 4003 DATA -55,-35,-57,-35,-58,-39,-61,-39,-68,-47
  55. 4004 DATA -66,-48,-70,-51,-63,-55,-70,-56,-75,-53
  56. 4005 DATA -76,-49,-74,-37,-72,-30,-70,-18,-76,-14
  57. 4006 DATA -81,-6,-80,0,-77,7,-75,11,-70,12
  58. 4007 DATA 4,-65,8,-45,-10,-65,-35,-75,-5
  59. 4100 DATA 37
  60. 4101 DATA -6,35,2,36,10,37,10,33,20,31,21,33,32,32
  61. 4102 DATA 36,20,44,11,51,12,50,8,47,3,39,-4,41,-14
  62. 4103 DATA 35,-19,35,-24,33,-26,31,-30,26,-34,19,-34
  63. 4104 DATA  17,-28,15,-23,12,-18,14,-11,13,-5,9,-1,10,4
  64. 4105 DATA 6,4,4,6,-2,5,-8,5,-12,8,-17,15,-16,21,-12,28
  65. 4106 DATA -10,30,-9,32,-6,35,3,0,20,30,10,25,-15
  66. 4107 DATA 5
  67. 4108 DATA 49,-12,51,-15,47,-25,43,-25,44,-15,49,-12,1,46,-18
  68. 4109 DATA 34
  69. 4110 DATA -180,-89,-180,-85,-155,-86,-159,-77,-122,-72
  70. 4111 DATA -100,-74,-100,-72,-75,-73,-70,-66,-55,-63
  71. 4112 DATA -65,-68,-60,-73,-70,-80,-35,-80,-35,-77,-20,-72
  72. 4113 DATA 0,-70,20,-70,40,-69,53,-66,70,-67,70,-70
  73. 4114 DATA 80,-68,85,-66,100,-66,115,-65,120,-66,135,-65
  74. 4115 DATA 150,-68,166,-70,170,-72,162,-75,160,-82
  75. 4116 DATA 180,-85,180,-89,3,120,-70,40,-70,-100,-80
  76. 4117 DATA 20
  77. 4118 DATA 142,-10,148,-20,153,-25,153,-32,150,-38,140,-38
  78. 4119 DATA 134,-32,126,-32,119,-34,116,-33,115,-30,114,-25
  79. 4120 DATA 115,-22,121,-20,127,-14,130,-15,130,-11,136,-11
  80. 4121 DATA 135,-15,141,-18,142,-10,2,130,-25,140,-27
  81. 4122 DATA 5
  82. 4123 DATA 173,-35,178,-38,170,-47,167,-46,175,-37,173,-35,1,176.5,-38.5,11
  83. 4126 DATA 130,0,134,0,136,-2,138,-1,146,-5,150,-10,145,-8,143,-10,138,-8,138,-4,132,-3,130,0,1,142,-5,5
  84. 4129 DATA 117,7,119,5,116,-4,110,-4,109,2,117,7,1,113,0,4,98,5,105,-3,104,-6,96,5,98,5,1,101,0,56
  85. 4133 DATA -80,25,-81,25,-83,30,-95,30,-98,27,-98,22,-95,19,-90,21,-87,21,-89,15,-84,15,-84,10,-75,10,-85,10,-95,17,-105,20,-112,32,-117,32,-110,23,-117,34,-120
  86. 4134 DATA 34,-125,40,-125,48,-130,54,-140,60,-150,60,-165,55,-158,58,-165,62,-160,64,-166,64,-166,66,-160,66,-166,68,-156,71,-135,69,-127,70,-110,68,-81,70
  87. 4135 DATA -81,66,-95,62,-92,57,-83,55,-83,52,-79,52,-79,55,-77,57,-78,63,-70,58,-65,60,-56,52,-65,50,-62,45,-75,42,-76,36,-81,32,-80,25,4,-150,65,-70,54,-110
  88. 4136 DATA 40,-90,35,3
  89. 4145 DATA -53,47,-59,48,-56,52,-53,47,1,-57,49,2,-85,22,-82,23,-75,21,1,-85,22,7,-66,63,-77,65,-72,68,-89,70,-80,73,-79,73,-62,66,-66,63,1,-69,64,4
  90. 4146 DATA -101,70,-115,70,-120,73,-105,74,-101,70,1,-110,72,4,-80,76,-90,76,-95,82,-70,83,-80,76,1,-85,77,10,-45,60,-50,62,-55,70,-60,76,-60,76,-70,78,-40,85,-20,80,-22,70
  91. 4147 DATA -40,65,-45,60,1,-40,70,117,76,8,72,21,70,20,66,25,55,26,50,30,48,28,52,24,56,26,60,22,57,19,52,16,44,12,41,20,33,32,34,32,36,37,27,36,27,42,42,42,38,47,30,46,29,42,22,40,25,38,22,36,20,40,20,42,13,46,12,44,17,40,15,37,12,38
  92. 4164 DATA 17,39,10,44,7,43,3,43,3,41,0,40,0,38,-2,37,-6,36,-7,37,-9,37,-9,43,-2,43,-2,46,-4,48,9,54,8,57,10,58,14,54,21,55,25,66,21,65,18,62,16,56,12,55,10,60,5,57,5,63,20,70,25,71,43,67,65,70,70,73,80,72,80,74,105,78,112,76,113,74
  93. 4165 DATA 130,73,130,71,150,72,160,70,175,70,170,66,180,65,180,63,170,60,162,60,162,56,157,52,156,58,160,60,157,62,155,59,141,59,136,55,141,54,140,47,134,43,128,39,129,35,126,35,125,40,118,39,121,31,120,26,116,23,109,21,105,19,109,16
  94. 4166 DATA 109,11,105,10,100,14,100,8,104,2,100,4,98,8,97,17,94,16,94,20,92,22,88,22,80,16,80,10,76,8,5,20,50,45,25,80,25,110,30,100,70,4,-5,58,-3,58,1,52,-5,50,-5,58,1,-2,53,4,-7,55,-7,52,-10,52,-10,54,-5,55,1,-8,54,4
  95. 4167 DATA -22,67,-15,67,-13,65,-20,64,-22,67,1,-18,66,6,141,45,145,44,140,35,130,31,130,34,139,38,141,45,1,139,37,3,80,10,82,8,80,7,80,10,1,81,9
  96.